home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Symbols / s-subtract-range-section < prev    next >
Lisp/Scheme  |  1998-08-11  |  583b  |  22 lines
  1. s-subtract-range-section range section pattern
  2.  
  3. 0-based
  4.  
  5. This function subtract items in given <range> on selectet <section> and output is return.
  6.  
  7. (setq sym (g-cluster .23 's 0 0 '(0 1 3 6) '(8 7 8 7)))
  8. => ((a b c d e f g h) (b c d e f g h)
  9.     (d e f g h i j k) (g h i j k l a))
  10.  
  11. (setq range
  12.       (p-select
  13.        '(0 2 3)
  14.        (pick-rnd1 .26 :content 2
  15.                   (g-integer 0 (l-count :all :content sym)))))
  16. => ((2 4) (7 2) (4 2))
  17.  
  18. internally to: ((2 4) (2 7) (2 4))
  19.  
  20. (s-subtract-range-section range '(0 2 3) sym)
  21. => ((a b e f g h) (b c d e f g h) (d e k) (g h k l a))
  22.